home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / tg_me_p0.sha < prev    next >
Text File  |  1994-03-01  |  171b  |  7 lines
  1. 1 ME=0
  2. 10 PRINT "MESURE D'EFFICACITE"
  3. 20 FOR I=1 TO M
  4. 30 FOR J=1 TO N
  5. 40 ME=ME+A(I,J)*(A(I,J-1)+A(I,J+1)+A(I-1,J)+A(I+1,J)):NEXT:NEXT
  6. 50 PRINT "EFF=";ME;"/2=";ME/2;
  7.